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Não nos foi possivel elaborar para este 
número a habitual secção "PASSO A PASSO”, 
Por essa falha, aqui ficam as desculpas 

do Clube Z-89 que espera poder compensã- 
-la no próximo número, 


Os nossos agradecimentos ao sócio FER- 
NANDO D'ALMEIDA PRECES pela, sua extraor- 
dinária colaboração neste número, 


PrIMEIPA PÁGINA 


Talvez nos chamem aborrecídos mas cremos que ainda não é demais voltar a 


focar o que já tem sido largamente dito, 


Sejamos realistas - QUANTOS, DE ENTRE OS ACTUAIS 135 ASSOCIADOS DC CLUSE, 

CSTÃO JOMPLETAMENTE SATISFEITOS COM OS NOSSOS BOLETINS? 

Já saberos a resposta e tcros consciencia que o restrito nirero dos que 

racponderem afirmativamente não estarão a ser honestos; pensardo provavel- 

rente om “apoio roral”, motivação, ctcs 

Agora sejamos ainda mais sinceros = QUANTOS ESTÃO A QOCLABORAR NO SENTIDO 

DE MELHORAR O CLUBE A QUE PERTECEM? 

Também aqui a resposta É, lamentavelmente, negativa (sem desconsiderarmos, 

no entanto, aqueles - muito poucos - que se tem esforçado nesse sentido). 

zeflectíndo um pouco, esta segunda questão pode transformar-se numa respos 
ta à primeira; Se o Clube 77-80 não tem evoluído, particularmente as suas 
cuclicações, é fundamentalmente porque o núcleo dos que o compõem pouco fa 
zem por isso. 

Para além dessa razão essencial, parece-nos que há outras a considerar: 

. Muitos daqueles que nos oferecem os seus programas para publicação esque 
-amn=-se ou tem dificuldade em se colocarem ao nível de um principiante; 
para este, certos programas resultam então incompreensíveis. 

. A maioria das críticas que temos recebido são muito genéricas, pouco di- 
rectas e objectivas. Cremos que seria muito mais fácil aperfeiçoar isto 
ou aquilo se as críticas fossem mais especificamente fundamentadas - pe 
exe “o programa x devia ser apresentado assim”, “o artigo y deveria con- 
ter informações sobre.ee”, etce 

« Presentemente, e embora seja uma razão provisória, não temos podido con- 
tar com a preciosa colaboração e apoio de um dos nossos coordenadores, 

o Alberto Fernandes, que após ter adoscido necessita de um grande perfo- 
do de convalescença. 
A propósito, e certamente em nome do Clube, desejamos ao “Berto” rápidas 


melhoras, esperando tê-lo brevemente de volta, 


Parece-nos ser este, no momento, o ponto da situação, 
Voltamos a frisar: oc CLUBE Z-80 É O QUE TODOS NÓS QUISERMOS E FIZERMOS! 
3erá que vamos deixar-nos impressionar pelo impacto da quantidade e da no- 


viiade e descurar a qualidade? 


> Clube Z-R$ continua a aguardar a vossa necessária colaboração - ela é a 


força indispensável ao seu desenvolvimento (que também passa pelo estímu- 
4 > Ea 
lo Jue fizerem cheçar aos seus coordenadores), Nácio Teeve OS las 


Aboxoamdu Jus 


INTRODUÇÃO À 


OS QUADROS 


Os quadros serão certamente as estrutuzsas 
de dados com que os programadores estão . 
mats familiarizados. Apenas algumas lingua 
gens optaram radicalmente por outras estru 
turas - LOGO e certas versões de LISP são 
excepções que não utilizam quadros. 
Um quadro pode ser definido por duas ópti- 
cas: como uma remriniscencia da parte físi- 
ca do computador (conjunto de células em 
memória); como uma representação informáti 
ca das matrizes matemáticas. Os“materialis 
tas” preferirão a l» versão e os “lógicos” 
a 28, 
A programação estruturada, cujo objectivo 
é transformar a informática numa ciencia 
independente dos suportes ( computadores 
ou linçuagens de programação), faz t 
apelo ao aspecto matrícial dos quadrosePor 
analogia, chamasse vector a um conjunto de 
variáveis do mesmo tipo, &j, &2Z,:c* » Ane 
Assim, um vector é criado por uma instru- 
“ão que deíins simultaneamente O número de 
elementos do quadro: “DIM A (100)” em BÃ- 
SIC, “A iarray 1,0. «1000 de nºs. inteiros” 
em PASCAL, descrevem e criam um vector n 
rico de 100 elementos. Todos os elementos 
de um quadro são necessariamente do mesmo 
típo e podem ser individualmente selecoiona 
dos utilizando Índices que constituem as | 
funções de aceeso aos elementos da estrutu- 
rão 
Nos dados escalares, a função de aceeso Te- 
gsume-se à nomíração do dado 
(exe A = B + 1 em BASIC). Trata- 
-se de um caso particular. Em to 
dos os outros casos, o acesso à 
elemento ou a um sub=-conjunto 


um 
da estrutura distingue-se do no= 
me da própria estruturas 


Em BASIC, por exemplo, um quadro 
A, criado pela instrução DIM A 
(10(), é diferente co termo 

A (3) que designa o terceiro ele 
mento do quadro A. A é do tipo 
quadro, enquanto A (3) é do tipo 
escalar. 

Veremos em estruturas mais com- 
plexas que as funções de acesso 
se distinguem da própria estru= 


tur ão FIG. 3=Os 


PROGRAMAÇÃO 


quadros s 
norma lmente usados 
mação. Disti 


do Cubos (E) com 


ESTRUTURADA 


(CONTINUAÇÃO DO ART. PUBLICADO NO 
BOLETIM Nº 3 ) 


A ideia de matrizes estende-se norma lmen- 
te aos casos de quadros cem vários Índi- 
ces. Affala-se de dimensões ou da caraz- 
terfstica de um quadro : DIM B (50, 3) de 
fine um quadro de característica 2 ( ou 
que comporta dués dimensões) contituído 
por SO linhas dispostas em 3 colunas, 

O acesso ao elemento situado na interseo- 
ção da 114 linha e da 2º coluna escrevs-s 
B (11,2) 













Tabela de posições 
do ficheiro 
(néxero de sector) 


Tabela de nomes 
de ficheiros 





RASIC. COM 


ESSAI SAS 15 
EDIT. COM 7 

CESTIONPAS 42 

LETTIRE. TXT ” 





FIG. 2-Um catálogo de ficheiros pede ser 
siderado um vector duplos O 12 contém o 
me dos ficheiros; o 22, a posição de inf 
destes ficheiros no disco. 





ão os primeiros tipos eg pd 
em todas as linquagens ce prog: 
(Ã) e são quadr 

uas dimensõe: 
ssível cons: 


em=se ” ecra 
a fios, É ps dg 


rar quadros com características superiores. 


utilização de quadros não se límita a teressante poder fazê-lo com dados de natu 
plicações matemáticas. Por exemplo, um rezas diferentes. Fala-se então de “agrega- 
n repertório (ou catélogo) de fichei- dos". Por exemplo, num programa “reportório”, 


»s pode ser considerado, e mesmo implan definir-se-á o tipo “amigo” pelos componen- 
ado como dois vectores: numa parte, o qu tes (nome, apelído, número de telefone). 
Aro dos nomes de ficheiros; noutra parte O acesso a um componerte particular já não 
seu número de sector, ou seja, & sua po se processa através de Índices, mas simples 


ição no disco (fige 2)e mente pela justaposição do nome do dado e da 
s quadros com duas dimensões são geral- área, 

-nte utilizados para conter informações Este tipo de dado, chamado “record” em PAS- 
ia devem ser dispostas em forma de tabe- CiLe “estrutura” em PL/1 e emC, não se 
13; quadros de gestão, de jocos, tabelas encontra em todas as linguagens de programa 
temáticas, etco ção. Então é necessário"decompor” os agre- 


- Quadro com N dimensões pode considerar gados em tantas variáveis elementares quan- 
'e um vector em que os elementos são qua tos os componentes na estruturas, 

iros com N-l dimensões, Por exemplo, um Por exemplo, em PASCAL, o tipo “amigo” defi 
“adro com três dimensões (1 cubo) pode ne-se do seguinte modo: 

“rege como um vector de matrizes (qua- 


“os com duas dimensões). Esta caracterís TYPE amigo 

'ca é usada para a implantação física = RECORD 

-s quadros, A fige 3 apresenta diferen- 

-s tipos de quadros numéricos. nome; array (1l..« 10) of char; 
»ralmerte as dimensões, o número de ele- cl adê 
»ntos em cada dirensão e o seu típo de- apelido: array (1.ce10) of char; 
-m ser determinados e fixados previamen tel,: integer 

-, na altura da criação do quadro, No END: 

aso de PASCAL, essa limitação é ainda , 

ais importante : devem ser fixados an- Assim, seré então possível utilizar uma va- 

-s da corpilação, ao passo que a máio- 4 fvoi disnta Elio 

ta das outras linguagens (BASIC, ALGOL, E 

Il e APL principalmente) possibilitam VAR a: amigo; 


criação dinamica de quadros, precisan- 


»-se os limites apenas na altura de exe O acesso ao número de telefone, per exemplo, 
ução, será realizado a partir da instrução: 
sta lacuna em PASCAL constitui realmen- 

e um dos principais defeitos desta lin- a » tel 


Jageme 


SRECADOS 


e é possível com os quadros reagrupar (Continua no próx. número ) 
lementos da mesma naureza, é também in= 


STIrTISS PERIRODOCAS NX BROCRAAÇÃS ESIRCNORASAS 4" traduzido d"adapiado da revista. 
“NIRO JISIEMEST, Sets (out. 1962 
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«e Tendo-nos sido solicitadas informações 


relatívas à utilização da Carta de Sou, 


aqui estão elas: 


UTILIZA DA CARTA DE SOM 


As ligações efectuadas são as indicadas 


na figura; 





CRIÁDS ESTA SECÇÃO PAIRA Slo 


COLABORE. 


ESCREVA-NOS! 















CARTA DE SOM 
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1 REM “COMBOIO? 


Mm 
sTornada para carta de som 
MOTHERBOARD 
A carta de som tem incorporado um ampli- 
ficador que deveréí ser alimentado por uma 
- fonte diferente da utilizada para o resto 


Jo sistema, Os terminais da alimentacão 
são os indicados na figura por + e 5 aos 
graíis ligamos uma fonte de alimentação do 
ZX81. 


Para verificar o funcionamento, fizemos 
correr os 2 programas seguintes; 


1 REM “EFEITO DE PHASER” 
1Q LET A = 16388 
1S LET D = 16382 
2) POKE A,7 
25 POKE D,255-$ 
3) FOR F= (QTO 15 


35 POKE A,6 

4) POKE D,32-F*2 
45 POKE A,B 

SG POKE D,15-F 

SS FORG = O TO 25 
60 NEXT G 

65 NEXT F 





10 LET A = 16383 
15 LET D = 16382 


2p POKE 
25 POKE 
37 POKE 
35 POKE 
40 POKE 
45 POKE 
50 POKE 
59 POKE 
69 POKE 
65 POE 
70 POKE 
75 POKE 
80 POKE 


S6-(B+16+32) 


D,16 
A,13 
D,1Q 
A,12 


85 FOR F=G TO 20 


90 POKE 


D,22-F 


95 FOR G =Q TO MY 
97 NEXT G 
99 NEXT F 


= 
Os programas foram obtidos do manual da carta 


de som fornecido pela LANDKRY 


Eua DAI 
DO q 


LPs, 


- 
4 


E O 


rm 
a 


Tn fo fi 


Tr 
do 


mM, 
er 
basta! Dat 


A Cgi ÃO das =.) 
“+ RE DR) o, DT 


pa 

Pedi 
1 À 
md 
pe 
mad 


- 
—a 


4 [os pa ps ] 
,.— 
1a Iii tm 


- w 


ps fed poi quê tá pa pa 
Je 1 
E at 
ed and 


ja 
o. E 


I 
1 
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PROGRAMAS 


SOBRE O PROGRAMA "INVERSÃO DE MATRIZES" 


e"Agradecia que me dessem infornações 
relativamente ao programa INVERSÃO DE 
MATRIZES por meio do algoritmo de La 

Farra (ve Loletim (Q pg. 5-6 e bol, 3 


REM CMNT" 
PXIMHO "ORDEM H= 0" 
IHEUT HM 


FREIHT H 

LM HeHHO pg. 13), 

ER TIHIT A minha questão está na não coinoíden- 
E=IHT "EMTEHDA DE VALORES" cia dos resultados obtidos por interm$ 
PR LH dio do referido programa com o resulta 
Fur [=1 Tu H do que me parece correctos 

Fur d=1 TO FRANCIS COSTA 
PRINT "LINHA "il: Felgueiras 


PRINT O FEL "Fi 
IPT RT. do 

PRIME CEA Doda 
HEST J 


Pi IHT O 
HeExT I 

Lts 

Fuk g=1 Ta H 

LET Dl=zAtão1) 

IF Dl=y THEM PRINT "MATEIS SING. UU FIVOT=A" 

Fui m=1 Tu N-1 


rr 
ss 


LET HisoHo=1/0] 


4 Pl Z=i TO M 


IF &=4 THEH SOTO Zem 

LET F=H.Z.1, 

Er wr=1 TO N-1 

LET HEZera=sACiZoT+LI-FSACÇA, YO 

HEXT 

LET AizeHo=-FSACS.t) 

HEST E 

MEXT & n 
Fur I=1t TOM € 
FOR d=1 TU 

PRINT RUI. dd"! 

HEXT 

ERIHT 

HEXT 1 

SAVE "ia" 


erro era devido a que nas linhas 2l$, 2% e 257 onde está OQ deveria estar 
variável O. 


Para evitar confusões, substituí-se essa variável por P. 


à, 


linha 21$ passou a ser LET P=A(Z,l). 


Fizerane-se também alterações na introdução dos dados (na sua apresentação no 


écran). 


“Dasta vez, selccrionei 4 prograras, 
dos 12 da minla cassete de pejueros 
jogos que penso deverem egradar aos 
leitores do nosso boletim,” FROGSAMA "IÇU” 


FERNANDO As PEEZES — Poda 
Apelação, Sacav ao 
(28. Deze 1982) e PROGRAMA “9 


e PPROGhAMA “12º 









Õ 


170 
EE=UX*Uvy/4.9-E 
INTORT 2,1, "DISTANCIA TI 
INT EE<4 AND EE>-4 THEN 


Ss 
a, 
o 
L. 
Ss 
Õ 
a 
(a 
1 
2 
o 
= 
e 
2 
1 
=] 
o 
9 
(Pa) 
s 
2 NEXT AR 
o 
> 
=] 
— 
2 
s 
[a 
g 
Ss 
3 
2 
a 
a 
o 
q 
> 
a 
o 
2 


, 


ses PROCESS giras FOCOS 
BLí ME IDA PRETES, EM Ac4"22. 
= REM “IR” 
4 PRINT + 5. TIRo INCIRECTO” 
Ss e A La ISITICO CO JVSo., 
-— Ig .. 
a PRINT “UALORES ALEATORIOS,D 
à ALTURA (D) ,” 
1S PRINT “DA LARCGLIRA (E) DA MON 


DIS 
RINT VTANCIA DO SUBMARINO 


4 


Q 
c 


O 


DOVSPRERppRADODOSOSDEDODDDDDODDDADUN NNA 


NEXT O 
A COSTRÍ(C) ps, 8 
25 PRINT DO CANHAO A MONTANHA E a or RR 
38 PRINT “CARO DO VENTO. UM VIG mas a 
IR JUNTO po" PRINT AT 15,265; 


Q 
3S PRINT “MAR, CA DADOS QUE VE 





qn fu GD 10 00 SBOÚUNNNROSHGHOOPAUD 


»99 U) Las6, 14 odio há PA 



























RR NO ECRAN. : O Eri ai 
42 RAD dq Re RP E AMGUL |4 
O DE TIR re da 
NS PRINT TOS VALORES QUE VOCE Ê RS np Gr doi a 
sa PRINT “POR CADA UEZ QUE DIS |7 apud e ELAS 
PARAR n 1 PRINT PT 12,18; 
SS PRINT ,,“POR CADA VALOR MET tda ra 
108, BRENO f/çº 1698 PRINT ST 1á:8) 
GÓ PRINT ,.” N/L PARA INICIAR" Ea a 
78 INPUT LS £ PRINT BT 13,8,7 
88 CL 4 PRINT AT 14,7; 
* 4180 DIM A(S) à FOR A=18 TO 31, 
108 FOR K=1 TQ S&S 113 PRINT AT 16,8; 
118 LET A(K) =INT (RND*1008) : E; ds uh AR e. 
115 NEXT K 1145 PRINT AT 14,2: “dk 
120 LET L=Ati)210-SO O DE A E 
12% LET U=INT L 125; 
130 LET A(4) =A(4) +50 t o Dad a. 
1355 IF U=0 THEN LET U=1 e ” “VEEET” 
140 LET M=A(5S)v,2 22.0 PRINT AT 11,3, 4 E: 
RE E Door 16 PRINT BY 11/8: MaSSEM 
158 LET AC=R(2)+A(3) 2015 PRINT 11,3; 1 je 
162 GOSUBE 42008 Ervas NEXT O e é 
165 GOSUB 1288 2238 FOR P=1 Daí 
170 PRINT AT 18,2; "UELOCIDADE?"” Se. mol Ted os TA rd 
17» IN tu o Rs H 2. .* 
173 PRINT AT 20,2; “ANGULO?" e po ir ia DOS pião iba 
1éês SO SUB 20 Ses0 PRINT AT 18,2; "VELOCIDADE 
185 LET UX=(COS (Uv194AszPIDIasTSU [É É eai Eua 
190 LET VY=(SIN (UZ1804PI)) 4T coins od AT 20,2; “ANGULO DE 7 
195 LET DZ=A(2) 4UY/UX-((4.S4A (2 [5900 RETURN 
ERR Cr THEN GOTO See 1200 PRINT RT 3,2; CUENTO --> *; 
205 GOTO o ieas PRINT AT S,2; "DISTANCIAR AC 
aja E Ra 
Sse2 FOR 0-1 TO Gg | E 
5205 NEXT OQ er 2 ger Be. RO aaa cado Co 
S10 PRINT AT G,a;" A o IR azeondios co 


—e—— e. . E né; ' - sã, : CMS 
" = * = - á ” = o“ um to + E ee wo ns 3.º MR 


s 





T- 


EM PROGRAMA TRAD.E MODIF. 
ALME IDA PRECES, EM 6/4,82. 
























PROCKAMA T4º : POR 
ER > S 
18 GOSUB 900 
12 
| 13 UU 
| dá GoRURÇSOs «o 
eBrem PROGRAMA TRBE.E MODIF. | dades 
POR ALMEIDA PRECES, EM 2/4/82. se bg cia Goto 140 
10 RED ir * RAS 30 LET Z$6=IN & 
' “PRINT , +, TAB (4) s Hs ss TF T6="5" THEN LET B=B+1 
EST: ="S," =E - 
140 PRINT ,,,, “NESTE JDGD, VOCE AO LO A TEEN Er mel 
TEM DE MANOBRPR > SO IF Z$<c>)"1" THEN GOTO 120 
1SQ PRINT “A PEQUENO HBUE, TENTO ss FOR Áz=i19 TO 5 STEP -2 
NOO DESTRUIR E | 80 IF H=0 THEN GOTO 125 
180 PRINT “G CASCO DE UMA VELHA &S LET M=O0 
ASTRONAVE* 20 LET 0=B 
170 PRINT “QUE SE ENCONTRA POR . 75 IF Ag(O)='"" * THEN GOTO 125 
195 PRENT “AS VEZES QUE VOCE NA OO CORE aro Eid. .. 
RCE la GUS do UI TT o or a PIN ET o 
p s 3 SUA PLAT — id - Tab -— 
aFÓRMA BASE,” a 90 IF INKEY$="5" THEN LET B=B 





IMPULSO DA 4 

















176 PRINT “SUBIDA ANTERIOR E CQÍ “1,00 PRINT AT 2O,B-4;" É 
MH MAIS POSSI” ' 4105 NEXT E 
2179 PRINT “BILIDADES DE TERMINA! 140 IF B=0 THEN LET C=C+1 
a s ns F B=0 THEN GOSUB SO 
189 PRINT "NO FINAL OBTEM A PON] 112 LE bB=b THEN GOTO 65 & 
Ee M | 1525 LET A$=Ag(2 TO )+4A$(4) 
E A iai A NAVE PF) 130 IF PAPAS D THEN ÓOTO 14 
un crer O Tio MOU de gia A q 1 DE CRER RF RES MGMT Mao 
EITA" | Rea sas: 
259 PRINT ,, “PRIMA (N/L) QUANDO. T'GLi As,AT 20,850 À AT 4.8; AS; R 
JOCE QUIZER. ú "446 TF Z$0)"1” THEN GOTO 170 
270 INPUT AS Ds IP ASIBeL)c> “ THEN LET Ss 
= S41 
Do Lina! : 4,B;"2";AT B,4; "VUO 
Fis [of grata dee Cao 641, = ás 
539 PRINT AT SC0S (5) +12,14451 OE RE eo CA De 
MB) 4174 Ca | PRINT AT 0,20; “EU ";C+439 
E rc iéa PRINT AT 16,16; FIM DO ROND 
562 PRINT AT 8,11; “agi 165 LET S=INT (S-C/2) s 
use " 190 IF S>5U THEN LET Us 
dias AT 6,11; WB] 4195 PRINT “SUA PONTUACRO MAXIMA 
age PR IF PSD sad POR Nai To so 
sós PRINT AT 8,11; "8% os NEXT N 
E | 15 GOTO 10 
651 LET C=18 E o6 FOR J=i TO 3 am 
ssa LET D=10 395 PRINT AT 10,19; "BERE;AT 10. 
so LE Lu 10. "BANG";AT 10.16;* “ Ô 
e la ea s1b PRINT AT 20,0+1; "Nº, AaT 22,0 
656 LEY B=21 Phi Lo” E o, +. e SET 20,9+12; 
657 É 45 E=1 Ms a 20,0+1; am 
630 LET 5-B-RNDAS+RNDAS 618 NEXO nas 
D—- q 8 “a. + 
680 IF INKEY$="Z" THEN LET D=D-) ,.SE8 am Nicrsas O asa ;S 
D<8 THEN LET D=8 | sas RETURN 
ataca 802 LET Z4="" 
INKEV$="M" THEN LET D=D+| Côa LET rc Ca] 
D>23 THEN LET D=283 E 
B>21 THEN LET B=21 15 Ler Eua 
O Pr cien “WE 825 RETURN 
so | np: | “  TUASAO DAR TERRA PO 
o RE eo: R RORRIVEIS “ S“PASSAROS NEGROS . 
740 PRINT AT C,D+ As Suas NAVES, “ . s“LANCAR-NOS Q 
Te» PRE Mo: ONT INUAMENTE . «»” 
"SS IF K=0 THEN & 348 PRINT ,,,, “NESTE JOGO, VOCÊ 
268 PRINT AT 2,5; * CECeNDE DE BOA” 
280 RINDO ANO ABS tD-B)»2 THE| NIMIGOS que 6“ o 
é - .. ZM ' 
Ss se Cr1=19 THEN LET Ex=-1 e PI” soon Esc a 
g + = = . . PARA 
800 IF C=5 THEN LET E=1 a A nb +*0* 
à GOTO 676. | So PRINT ,.“PRRA A ESQUERDA E 
839 PRINT AT 180,3;"A SUA PONTUA: s.14+4 PARA * “ABRIR FOGO.“ 
as PAUS 60 CRINT UI “PRIMA COND” PARA 
835 PARÚSE 400 a Mt 
a 978 INPUT L$ 
e a 982 RETURN 


as 


o = pa , ai O amena SRS ea Dra E Co A = - 
E sé TT os ++ o O E , e SR e op e doa 


PECGRAMA “12º 


oBRErM PROGRENA TREE MRODTZE. 
POR ALHE IDA, PRECES, EM 15,/4/,52. 


15 GOSUB 1200 
20 PRINT AT 2,6: "COMANDOS DA NM 


o PRINT +, “A TECLA “'“Z''** MOVE 
Q NAVE PAR Ra Ocera 
PRRRP ANE ae rFAPVEPOS- “e 
43 INPUT L$ 
50 LS 
109 CLEAR 
128 ET Ce 
1380 LET X=1lá 
4140 LET H=S5 
1598 LET kK=0 
16AQ LET P=16595 
DE dia LET P=i+PEER P+PpEEKR IP+1) *& 
2808 LET CaC+h 
218 FOR K=1 TO & 
220 PRINT AT 14 -(C/2) +INT (C7/78) 
s4,RND+30; "0" 
2560 NE 
Zz438 SCROLL 
2E68 PRINT AT 9,31 no 
SES FOR K=X TO X+2 
«bd TF PEEK (P+k) =» THEN LET WR 
[— cm 
280 NEX 
zag IF Hci THEN GOTO ES a 
feat Dim AT O,xX;! *";CHRgG (H+1S5 
4 
sº0 IF INKEv$='Z" AND X3)0 THEN 
LET X=X-1 
na IP INKEY &="'4" AND x <28 THEN 
LET X=X+2 
34B GOTO 200 
Esq ECUS 
SEBO PRINT s, 4." VELOCIDADE “;C; 
» SEGUNDOS -LIU “HORAS 
8780 PRINT í,,'"'CAMPO DE ENERGIA E 
SSOTADO « vu” 
apre PRINT » s"ECRANS EXTERIORES, 
am PRINT ,4 » 2 "BALVE-SE QUEM PO 
898 PRINT +» » ;CEMERGENCIAR. EM 
EBG' 


ERES SE 
PAUSE 328 

CLS 

FOR T=1 TO & 

597 PRINT AT 14,5; "“BARARANNNGGO 
9298 PRINT AT 14,5;" 

929 PRINT AT 14,5; "E 
10 NEXT T 

15 CLS 

20 INPUT U$ 

39 GOTO 180 

1800 PRINT ,."EXPEDICRO GALAXICA 
2º VOCE PILOTA UMA 

1026 PRINT +, “PODEROSO CAMPO DEP 


12938 PRINT +"DE AR PROTEGER DE OQ 


DDR 
G99fUÚ 
CASA 
v 
A 
ma 
4 
«À 





UALQUER CHOQUE 

410480 PRINT ,,“'O PROBLEMA SIIRGE GQ 
UANDO ENTRA NO“ 

1059 PRINT ,.,"ESPACO NORMAL NO M 
ETO DUM ENXAME“ 

1260 PRINT ,.,"DE METIORITOS GIGA 
NTES. O BANCO“ 

1978 PRINT .,"DE ENERGIA AGUENTA 
pa NO MAXIMO" 

1080 PRINT .,'"'5 EMBATES. BORA SOR 
1081 INPUT LS$ 

1082 CLS 

1090 RETURN 


(pvblicado no rº 3, páie 7) 
| 
| 
| 


Aincia sobre q 


PROGRAMA SUDO 


Celativamente a este programa 
folenos pedido que publicásce- 
mos o cóiigo correspondente 
às instruções da 12 lina. 


Aqui fica a satisfação do pedi 
dos 


1 KEM 

412 12 54 17 205 1091 253 237 
176 291 33 16º 97 237 91 12 
c4 1 25 3 237 176 271 34 15 
3%6 37 28 


DO 


"No manual do ZX sao referidos 
lívros sobre linvuayem má-juinão 
(000) 5ã> de facto esclarecsdo= 
res: ou serão incompletos? Conie- 
cem outros.” 


sério 4. HUCK 
Pcrtalstrre 


IJnlgamos completamente esclsTA- 
colores os segmuirtesi 
PMASTERINC HATUIVE CODE CN TCIR 
ZX81”, Tony Fater,Interíal*, 
CreateBrituir, 1981 


O de 


"MACHINE LANGUAGE  PROCES MINO 
MADE SIMPLE FCR YCUR SINCLAIR 
ZX8O A ZXRI” jMelhtonzne .icuse 


Publishers Ltt,, âustralia,193! 


POGO — ASSEMBLY LANCUAGE 
PINCPAM (TNG” ,Csiorne/MoCraw=iil) 
TeSeBo , 1979 
esconhecemos se astes livr-s 
encontBem à venda ro nosso país 
"o entanto, se estiver interes- 
Ed . e . 
sado em fotccópias, poderercs é 
viar-lhas à cobranção 


(Cror tunamente responiers0s E 
sas outras questões). 


PROCKRAMA 8 





— O — -==0— = — race UU, 
-< t 


SHREM PROGRAMA ELABORADO POR 
india = PRECES EM JULHO DE 82. q 
e 


ne 
PRINT AT 3,3; “PROGRAMAS MAT - 


aproveito (eee) para 05" 
zos enviar mais uns EMAT ICO INT AT 6,2; "SISTEMAS DE E 
- 
orogramas para o ZXÉL UA A INT AT 9,86; 1 - 2 EQUACO 
(um peci matenátt ES £ INCOGNITAS 
INCOGNITAS"* 
8 PRINT ,,' & - DETERMINANTES : 
h | 4" l 
FERNANDO PRECES 2 PRINT ,,” 4 - EQUACOES DO 2 : 
na DO o INPUT A | 
(200 Jar 1983) 2 CLS 
Sá IF A=i THEM GOTO 40R 
26 IF A=2 THEN GOTO 188 
27 IF R=3 THEN GOTA sao 
8a TE p=4 THEM GOTA ZA 
108 PRINT " EQDURCOES So 4* GRA 
41062 PRINT ,,” SISTEMA DE 3 EOU 
ACOES, A 3” 
104 PRINT “INCOGNITAS 
1205 PRINT ,, “VOCE PODÉRA TAMBEM 


[ 


| RESOLVER cóHM 
| 108 PRINT “ESTE PROGRAMA, SISTE 
e Mas A 2 


» PROGRAMA “6 | e PRINT “COGNITAS, DESDE QUE 
- PROGRAMA “21º A SATyT "SOME 1 AU TOTAL DE C ) 
« PROGRAMA 27” ACNE O, e tas ALX+B1Y +Ci1ZaDI 
- P2OCOBMA "28º | “116 PRINT ,,“ (2) ARX+B2VY+CAZz=DR 
. PROGRAMA "31º | (118 PRINT ,,"(3) ASX+BIV+CIZADI 


128 PRINT p +" INTRODUZA OS VALOR 
ES POR ESTA” 
122 PRINT “ORDEM: (EXEMPLO) A(4 
405 BRENT "B (1) ENT 
se - RA 
“ENTRADA 3, o RE Re 
124 PRINT “D(1) -ENTRADA 4, ETC. ' 


2 FOR 0O=i TO 10200 
e NEXT O 
> 
õ 


, - stblfios 


CLS 
aa pd AT 8,0, “META os VALOR , 
aa PREU DO MAL ideias rca sic 
pe FORO 0O=1 TO 104 
142 NEXT O 


143 CLS 

144 DIM At1E) 

145 FOR K=1 TO 12 

146 INPUT À 

147 LET A(K) «A 

146 IF A<10 THEN PRINT * nz 

1 + .. TRADA - “. K é .. 

150 ÍF Re100. ANÓ A2>16 THEN PRI 
NT, di Radios "ENTRADA “;" (Ut; kK 


“152 IF A>=100 THEN PRINT “ 
; A, "ENTRADA “it Cri 
155 NEXT K 


(CONTINUA 


(onto PLUG NDA o") 


PS 
156 CLS Evo CA 515 INPU Do iai ee 
157 LET CaRtá) 2A(6) 4ACIT) HA CRI RS: s17 PRINT AT lis E= "4E 
AL7) ALI) SA (SD PRA AD LA CAS SA CSA o 520 LET G5P THEN coro see 
+ + * * + a rem x pa 
| 2R (2) +R(9)) (144 Sos PRINT ed POR ORDE 
DS LET G=AvI) HAUS) aaviti sacada Ms OS VALORES, pc. E” 
A(7) «A (9) 4A (3) SA (S) SA (12) LA CS) é | 527 PRI e SO mta U5 
A(B) ACD) FACT) sA(io) Ati) oAti1) 4 é S2S PRINT AT 17,84 = "5 
BiULI HAS!) Ss30 INPUT Cc 
159 LET D=A(i)! 3 VG! FAVIL) SAR) + sa2 PRINT € aa DE) 
Ator eB IS) +R(D) ARtS? SR $20) -tRtdA a « Sa3 PRINT PT 19,8» =" 
EI SAD) SA(7) AA(SO) SACI) 4A(Id) e sas INPUT F 
A(Z2 *4A(5)). s368 PRINT É 
4160 LET X=C7/0 s37 FOR 0=1 TO se 
16% LET Y=B/D s38 NEXT O =) +G 
155 LET Petar) att) ax-nies era s40 LET X=(CrE-Bal a 
Big+ 1 ss LET p=(R4 CAD! rt 
159 PRINT AT 7,S; “UBLOR DE X e; 0 ESS Uta e é RISE 
“og « SW PRINT veja So E Es 
145 PRINT AT 11,5; "UALOR DE Y “é Ses SA SMT cera LE ** 
A, “2. ad g Ssa FOR DV =1 “o ac 
174 PRINT AT 15,5; “VALOR DE Z e = S67 NEXT O 
irot*rok 0=1 TO 1000 à 24 ão e 
= Tea É e 
197 NEXT O sao O RT , , "SOLUTOES INFINITAS 
198 CLS . 
199 GOTO 4 “| seg FOR 0=1 TO 208 
220 PRINT AT 2,5;” ENURCOES DO soe NEXT 
2585 PhInT ES Goto 
202 PR » RM 
ENTE Ê iba FORMULA RESOLU | 005 PRINT “DETERMINANTES (4240, 
MP 34 PRINT ,,” X=(-D+/- (BDesR-4A * sos PRINT . 4, “CALCULO MATR IC DAL 
Cc. S9R ) 7/28" 618 PRINT AT 8,2; A= 
aBd6 PRINT ,,””! FORMATO DE ENTRA - 612 LET R=i 
asi 615 FOUR 0-5 TO 11 e 
228 PRINT ,4” Ax++2+4+BX+C=8" aa PRIMT BT SS | 7 
10 PRINT 5,” INTRODUZA POR EST E ze 0sS OR 0=7? OR O=9 OR 0=1 
A ORDEM OS “* 4 THEN GOSUB 1000 


212 PRINTS" eas MEXT Q 
13 FOR Osi'T mo ÊSo PRINT PT 17,8; INTRODUZA os 
e NEXT O Ce AREAS BLORES DE B é POSS 
CLS | aa * E4S PRINT “ORDEM CRESCENTE: a(1 
528 INPUT A 1 ATE BVISI LL” 
220 SNENT ,, ENTRADA 2, A e tirf 658 ECA Q=1 TO SOR 

| ia “ 655 NEXT O 





- | EA 
22? IMPUT ER | ““ 660 CLS 
as PRINT +,“ ENTRADA à, B = Ci: 66S CIM Rt26) 
a “7a FOs M=i TOA 18 
o24 INPUT C 575 INFUT BUEN! 
56 PRINT ,," ENTRADA à, CC = as PRIMT CBEUsM A = Co IH 
Cc — 665 NEXT N 
228 FOR O»i TO 208 | 685 FOR 0=1 TU 2448 
ao» NEXT 2 Sa? MEXT Q 
DAR CLS | « 683 CLS 
Sat LET D-25R r 55% LET P=15 
“36 LET Ya-8/D A — 69S LET 0=0 
238 (LET J=18+45! 4438] EE 3 “0 LET DB=R 13) 2DiZ2)-R (ID) ATL 
As IF Q=( THEN Gere ES2 | Si 
mos FF OE THEN soro Es à “PQS LET C=161 sB(11-BIPLADIS 
as LET F=505 [Bt 518 GOSUB 11080 
'2e8 PAINT ,,” PAIZES rMBGINGRIS ! 715 LET Bh 18) 40 (15) -A(16) 358 (7) 
3 Wars 28 LET C=Bilo) *A(i)-A 2) FO) 
249 PRINT RE DD e 525 GOSUB 7100 
2sa coro 2 238 LET R=BVLGIAp(g] Ale) 4P (15), 
252 PRIMT ,+” RAIZES IVUATISS 758 LET C=Ri10) 4R(5) -B(6) 419) 
2s3 PRINT Pad aid aa GOSUB 1108 
ass Goro él 460 CE qa id) em (7)-nçe) sRTtado | 
àSG PRINT ,,” RRIZES REBIS: -— 2528 LET C=AiI4A) *A(I) RAIZ) 4 (19) | 
às PRINT O, i-B+5OR 9)27 SEs GOSUB 1190 
260 PRIMT ,,. (-8-S0R U!/D : 762 LET B=-R(4) 48 (11) -A(12) 49(3) 
262 GOTO 208 265 L C=B (14) 48 (5) -A(G) ES (19) 
Soa FOR Qai TO IBAMA 520 GOSUB 1100 
29 2 275 LET B=A(e) 4R(3) -A(4) 4817) 7 
2a CLS ca: 80 LET C=Rii4) 4819) -ALIQANAAÇIS 
2299 GUTO 4 ) 
“A PRINT AT 2,8;"2 EQUAÇÕES A “85 GOSUB 1120 
2 INCOGNITAS" 5928 PRINT AT 8. Q; "RESULTADO: Az 
«25 PRINT AT 6,4; “um ax +By =C” a -. 
410 PRINT AT 9,4; “un DX+EY =P" 2-5 FOR 0=1 TO 200 
15 PRINT AT 18,4; "MW x=(CE-DP) 7 + Soo NEXT O 
(RE-BDI” 805 CLS 
120 PRINT AT 15,4;"B y= (AF-CD)/ | aie GoTO 2 
(RE-BD)" 4 1000 FOR N=R TO R+3 
225 PRINT 9T 16,4;': INTRODUZA po? 1005 PRINT "A(“:NAC) .; | 
Rn SRDEM, OS VALORES" - T010 IF N=4 OR N=8 OR N=1i2 THEN 
ado PRENT ,CDE.A - DB - 6 - D" PRINT " " 
522 INPUT 1215 NEXT NM 
so2 CLS Cr Edom TODO IF N<16 THEN LET RaR+4 
5203 PRINT AT 2,6; "As “;A nr E 422S RETURN 
Se5S INPUT B | 11VA LET D=B+0+0 
507 PRINT AT 5,6; "B= 2: “cura a 14180 RETURN 
e sd o Ra 








PROGREMA ?21º 


REM PROGRAMA MODIFICADO POR- 
ADE IDA PRECES EM 3075782 


Ea 
GOSU da 
LE 
FOR A TO RN0+20+1 
DIM f& 
FOR T "To 3 
LET R T (S+4RND) 
LET A 

I 

J 

B 


QuMpuNP- 
sussa 
UMA=NIL= 

ba” 4 


e 


BD+*T-s 
20 +R+290 


90 VON 
91699 
76) 
mo 
xa 
“Ii. 


AND Ala) =AL(3) 


+ 
pPpPppIPH 
UP QrLmMe 


THEN STOP 


E 1 am ,AT I+i,J; 
AT 1I+2,9;' tai aii I+3, S; 
URN 
PRINT AT El, 
2 RETÕRA mos * 
R 
RA AT I. Es Rd AT I+1 
T+B, ads * I+3, J; sas 


20 G9TO 120 

19090 IF Cr=0 THEM, PRINT AT 18,5; 
'UOCE GANHA Os ESCUDOS a 
1918 IF Cuiã THÉN) PRINT AT 18,85; 


4 hs o E. = 
SN Pe Cego ro 
9 99 -99 -9999979 
D 
Ro 
= 


VOCE PERDE “; “ ESCUDOS 
10530 IF Cai ind PRINT AT 
"VOCÊ PERDE “: -C;”* ESCUDO * 
1299 RETURN 

22900 PRINT "JOGO DAS 3 MARCAS 
A ENT DÁS, MOEDAS) 

2005 PRIN se 

2010 PRINT ja NESTE. “Joco, PRE 


MINDO A TECLAS 

2220 PRINT iso VOCÊ INI 
CIA À ROTA pe 

2050 PR ndidiad a MARCAS. A TE 
CLA 4++0+%+ q = 

2035 PRINT í,,“'O JOGO. QUANDO as 
3 MARCAS FOREM 

22040 PRINT ,, "IGUAIS, VOCE GANhHp 
A 19 MOEDA Mú 

2950 PRINT "PERDE 1 MOEDA SEM 
PRE QUE AS NÃO" 

2B60 PRINT “AL INHE .* 

2270 PRINT od, PAR IMA pm - mam 
A COMECAR.“ 

206820 INPUT AS 

2038 LD 

099 RETURN 


e ez Itai | 


PROGRAMA 727º 





SEREM PROGRAMA MODIFICADO POR 
ALMEIDA PRECES EM 29,€.,1362 

> BEM Wr' 

É GOMUIA GQ 

se GOTO 429 

eo IF H<50 AND U<2a BAND V>-45 


ANDO RBS (Z-M) <S THEN GOTO 3868 
30 IF H>51750 THEN GOTO 4e6 
42 ii 
se A=87/7 
[= 74] CET TeT+44 +INT (RND42+41) 
70 LET V=V+4A4+3-12-3+RND 
80 LET H=zH+V-22R+1IR+RND 
2 LET F=F- (ABS (AI +ABS (B/5) 4 
G+4RND) 
102 GOSUB 20 
a IF H<20 OR F«<5S THEN GOTO 3S 
120 LET U=z=H,100 
130 LET Z=2+8B,2+2-RND+43 
0 PRINT AT SETA, 
[o 16-U,Z+14;"* e" 
180 LET UW=16-U ' na 
E Di zo 
6,0; dd 
SESÓIDDE TO M-ir: er pueaaná. 
232 PRINT AT 17,0,: VELDE RE 
TO "PuEL co2 EE ne a 7 
api a NT 4” “ALTITUDE: a o 
Í 
290 PRINT “TRAVAGENM? *"'; 
32020 INPUT A 
310 PRINT A;* * (“DIRECCAOT *”; 
320 
SI] 
3S4]e 
Isa 
mM "::Aass UV 
362 PRINT AT 4 
po | a U 





380 PRINT AT BOA BLUMASEM., 
- MPONTUARCEO  aB6S tap INT FES U) 4 
ENT YU: “a 

385 PRINT. BT &olhá“ 


238 Soro des 
NT AT 20, Si VOCE 
VELOCIDADE DE ESCAPE” so RS 
FOR 0=1 TO 41R 
403 NEXT O + 
“25 PRINT AT 2e,e;”* “S) 


418 GOTO 4208 
4220 LET issa 
27 +S50+RND 


Se«RND 


> 
mn 
9 
Ê 
m 
5 
CIODNATI 
O 
ue 
y 
4 
2 


SUDHOPEOM 


Sos PRINT AT 2 2; ERES 
14 CYÔCE E O PILOTO DU 


4 (COMPUTADOR | PRINCI 
Sup QUE NAO FUNCIONA E 
1408 NRUE BLUNE, TEM 
CEO COMPUTER AUXIL 
"DE ““TRAVAGEM 
"DIRECRO”"“ SEMPRE” ” 


670 PRINT ., QUE ELE OS PEDIR.” 
680 PRINT ,," PRIMA seN/L 34 PAR 


à COMECAR. 


699 RETURN 
Da RPPS E RE CNAS SEA E 





PXGLAM, “280 


é 


SBREM PROGRAMA MODIFICADO POR 


ALMEIDA PRECES EM 21/6/1982 

2 REM “28º 

Ss GOSUB 70W 

10 LET W=z1200 

£2 INPUT B$ 

1, IF B$gz="S"º THEN STOP 

22 IF UAL B$>9S THEM GOTO 20 

es PRINT AT 17,20; “JOGOU NO NUM 
ERO “,BS5 

as INPUT 

42 PRINT AT 19,180; 7 Ma | a 
“TAB 20; "ESCUDOS * 


1120 FOR N=2 TOS 
AT 10,2+4N+6, CHRE 


Pag PRINT (28+ 
130 NEXT N 

140 LET R=INT (RND+5) +5S 

150 LET D=INT (RND+18) 

1S5S LET R=R+418+D 

1620 FOR N=z0 TO R 

165 LET Xz=zN-190+%INT (N,/28) 

1728 PRINT AT 124,2+4X+46; CHRS$S 1268 
180 PRINT AT 10,2+X+6; CHRS (28+ 
X) 

190 NEXT MN 

222 PRINT AT 12,2Z4X+46; CHR$ (156 
+) 

218 GOTO 120+CODE BR$(I) 

372 IF VAL BS$(T) =D THEN LET U=U 
+120+48 

a8s2 GOTO 


22 
(D22) =Dv2 THEN LET U 


430 GOTO EUR 

Sse0 IF INT (D/2)<>5D/v2 THEN LET 
2 V=U+2Z+4A 

» 600 PRINT AT 14,7 


60S PRINT AT 14,7;W;” ESCUDOS" 

610 IF U>=Q THEN Goro 2a 

620 PRINT AT 17,0; "NAO ACEITAMO 

S CHEQUES, PAGUE EM” 

650 PRINT AT 19,9;' DINHEIRO, 

64e STOP 

ro PRINT AT 1,3;“ROLETA DA SOR 
"VOCE ESTA NO CASIN 


7124 PRINT., 
"JOGAR Umas NOTAS. 


APOSTADO Eno 
Seo PRINT 

ROLETA DA SORTE 
VOCE ESC 


732 PRINT sé ça 

Elia as. 

Mm INTRODUZ E DEP 
| "EM ESCUDOS QUE QUE 


q 

£L p 

+ RU 

NO 

mx 

DH 
q 
H 
Z 
+ 


OIS O VALOR' 
760 PRINT, 
R APOSTAR.” 


770 PRINT ,,'PRIMA A TECLA “UNA 
ho PARA COMECAR” 

760 PRINT ,,"“E PRRA TERMINAR, P 
RIMA e e “. .. 


281 PRINT. a 
HA UM BONUS. 
705 INPUT LS 
790 CLS 

799 RETURN N 


NA PRIMEIRA JOGADA 


PO 


PROGRAMA “31” 





GBREM PROGRAMA MODIFICADO POR 
ACHE IDA PRECES EM 24/€ 1902 
S REM “31º 
B GOSUB «0 
19 PRINT AT 
20 DIM N$(6) 
30 DIM G$(6) 
40 DIM W$(6) 
S2 RAND Q 
6S FOR I=1 TO 6 
.0/º LET NS(I)=CHRS INT (ENDeIO+ 
Bo NEXT I 
90 LET C=0 
100 LET C=C+1 
110 IF C=15 THEN GOTO 258 
120 INPUT G$ 
0130 IF Cgu” " THEN GOTO 35 
140 PRINT C$;" "; 
150 IF C$8=N$ THEN GOTO 340 
160 LET U$=N$ 
170 FOR I=1 TO 6 
180 IF GS(T) c5US(I) THEN GOTO 2 
190 LET USED =” 
206 PRINT "B"; 
210 LET G$(1)="7* 
20 NEXT 1 
230 FOR I=1 TO 6 
SAO IF U$(I)="+" THEN GOTO 510 
E50 FOR Jr1 TO 6 
EGO IF I=) OR US(I)<)G8(J) THEN 
GOTO 208 
270 LET G$(J)="2" 
=B0 DRINT “BR”; 
290 GOTO 310 
300 NEXT U 
310 NEXT 1 
Sds ES os ma 
2 GU 
“SA PRTY Ru 46 “BrERT! 
aZéS PRINT 10,16, "A ";U;” JO 
350 PRINT AT 6,16, “NO NUMERO: " 
360 PRINT AT B,14/0s+ ";NS;O e* 
350 STOP . 
100 PRINT AT 3,10; "MASTERMIND 
460 PRINT ,,,0” UM NUMERO DE 6 
ALGARISMOS, D 
4ES PRINT “A 9, E QUE PODEM SER 
REPETIDOS E' 
476 PRINT “CRIADO DE FORMA ALEA 
TORIA. VOCE 
475 PRINT “INTRODUZ O SEU PALPI 
sô PRINT “IMEDIAT 
“IMEDIATO A RELPOSTA. 
PARA A& PO” ci 
485 PRINT “SICAO CERTA, “ B““ E 
n BGsgEDO ERRA 
"DA. TEM 15 JOGA 
RR: pude 
Ro. 
ARA COMECAR: ** ia 
496 INPUT L$ 
497 CLS 
4599 RETURN 


lá 


” PROGRAMA PARA CALCULAR O DESVIO STANDARD ” 
Preparado e adaptado 


Definição matemática por Alexandre Sousa 


MÉDIA: x SM IN 


X - valor de cada elemento 


N - número de elementos 


Y - média aritmética 


Frequentemente, quem analiza cálculos quer saber em que médida os 
valores se afastam da média. 


É esse desvio que o denominamos como; 
DESVIO STANDARD ceccvoee TST? 


O quadrado do desvio standard tem o nome de VARIÂNCIA e a sua definição 


se Sad Exx)? 
N-1 


em que N é o número de amostragens usadas para cálculo de desvio 


standarde 
[!/ wu)Z XxX)? 


Deste modo o desvio standard fica definido por 
Ss = 
Um desvio standard igual a zero, indica-nos que todos os valores são 





iguais. 


Matemáticamente pode observar-se que $(x%)* é algébricamente identico DD 
a Fxº - NX*, que favorece fundamentalmente a computação, 


Matemáticamente estas duas fórmulas dão a mesma resposta, mas NUMÉRICA- 
MENTE a resposta não é igual. A diferença resulta do facto dos compu- 


tadores não guardarem os números calculados, com perfeição. 


Um modo de obter resultados exactos, será o de calcular primeiro a 
média e usar as diferenças entre ela e o nosso cálculo do desvio standard. 


Para isso necessitamos de ter todos os dados em memória, 


Outra alternativa é a de fazer entrar os dados duas vezes, o que não é 


prático. 


Um compromisso possível entre as duas fórmulas de cálculo, leva-nos a evitar 
uma grande acumulação de erros, O princípio é o de calcular um valor provisfrio 


para a média, cada vez que entra um valor, e calcular o quadrado Go desvio des- 


sã média, 








1 REM “ESTATISTICA-1º 


1 REM “ESTATÍSTICA-I” 


1G PrINT “PROCERAMA PEPA CALCUL 1G PRINT “PROGRAMA PARA CALCUL 
AR A MEDIA E O DESVIC SIANDARD AR A MEDIA E O DESVIO STANDARD 
(OPÇAO 2)” (OPCAO 3)” 
15 LET Na5 15 LET N=5 
27 LET S=P 2Q LET S=7 
3F LET Sê SJ LET S2=Q) 
“4 FCR Is] TON 4) FOR I=1 TO N 
50 INPUT X SO INPUT X 
7) LET SaS+*X 7) LET D=X=S 
2f LET S2=S2+XX EG LET S=S+D/I 
90 NEXT 1 85 LET S2=52+Du(X-S) 
10G LET MaS/N 9) NEXT I 
125 PRINT 165 PRINT 
110 PRINT “A MEDIA E : “;K 11Q PRINT “A MEDIA E : *;S 
120 LET D=N eMeM 120 LET V=S2/(N=1) 
130 LET V=(S2=D) /(N-1) 144 LET S=SQR V 
140 LET SaSQR V 145 PRINT 
145 PRINT 1504 PRINT “O DESVIO STANDARD E 
150 “O DESVIO STANDARD E ad 
ss : 164 PRINT AT 19,7;"ESTE PROGRAM 
157 PRINT AT 19,4; "ESTE PROGRAM A CALCULA A MEDIA CORRECTAMENTE 
A CALCULA A MÉDIA CORRECTAMENTE E O VALOR DO DESVIO STANDARD T 
MAS Q VALCF DC DESVIO STANDARD AMBEM” 
ESTA ERRADO” 








Obserrem-se fundamentalmente as diferengas; 


LINHA 8q DIVISÃO POR 1 e não N 
no célculo da média 


LINHA 85 O PRODUTO D e X-S é diferente de DuD 
porque Sº foi mudado desde que D foi 
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Pareçe-nos útil começar a introduzir os membros do Clube na engrenagem dos sistemas ope- 
ratívos. Muitos “informáticos” de fresca dafa ainda confundem sistema operativo com lín- 


guagem, pelo que será bom começar a apurar as leituras e a levantar questões, 


Cs utilizadores de microméquinas ficarão satisfeitos ao saber que podem colocar-se 
perante duas alternativas similares; o CP/Me o sistema UCSD (normalmente mais caro). 


O CP/M é um dos sistemas operativos mais usados em máquinas com "floppy disk”. Um mi- 
croeomputador que use o CP/M tem possibilidades de abarcar wa grande variedade de 
linguagens de programação e de aplicações de programas, Mas, por si só, o CP/M não 
proporciona toco o “ambiente” necessário à programação. 


Cs instrumentos necessários à programação são, em sí mesmos, programas, tal como é 
Jemontraco pelo CP/M Incluem “editores”, “compiladores”, “interpretadores” e um çran 
de conjunto de outras utilidades, Com o CP/M elas estão dispersas e tem de ser regue 
larmente procuradas e transportadas, 


O sistema p/UCSD é diferente, apesar de ser também um “software” tal como o CP/M, 
ais do que um conjunto de programas dispersos, ele constituí, do ponto de vista dos 
utilizadores, uma parte do tal “ambiente” da programação. Conforme as circunstancias, 
aparece um menu de opções no écran. Isto dá acesso aos variados instrumentos necessá- 
rics para escrever ou executar um programa, 


Para compreendermos as facilidades que o sirtema p/UCSD oferece, obtivemos uma versão 
do sistema destinada ao SIRIUS ACT, desenvolvida e fornecida pela companhia TDI. 

À excepção dos processos de instalação, o sistema SIRIUS p/UCSD deve ser identico a 
qualquer outro, poís todas as implementações usam O mesmo sistema básico fornecido PS 
la companhia americana SCFTECH, 

Quando Íníciar com UCSD,a primeira coisa que vê é o menu principal, que lhe oferece 
um certo número de opções: pe. ex. “edit”, “run”, “file”, “compile”, “execute” e “assem 
ble”, Escolhe a opção que quiser primíndo a respectiva letra no teclado, tal como É in 
dicado pela lista de opções no écran (p. ex. “edit” é exibido “Edit” = portanto deve 
primir a tecla “E”), ? 

Após seleccionar um comando particular, obtém um outro menu de opções; se quiser edi- 
tar algo, prima “E” e obterá algumas destas alternativas: A(djst, C(py, D(lete, F(ind, 
I(nsrt, J(mp, R(place, Q(uit, X(chng e uma opção especial denominada Z(ap. 


É atendendo a estes aspectos que se diz que UCSD fornece um ambiente: a todo o momen- 
to estamos rodeados das "ferramentas” necessárias = seleccioná-las implica apenas pri- 
mir uma teclas, 


UCSD fornece-lhe meios mais sofisticados que CP/M, pelo menos quando estiver a progra- 
nar com uma linguagem de alto nível, pe exe PASCAL. - 

Isso passa-se especialmente nas duas maiores áreas de programação: “editing” e “filing” 
UCSD é normalmente acompanhado de dois editores : um écran editor e um denominado YALOE 
(Yet Another Line Oriented Editor). Em programação precisa de um editor para escrever 

e para editar programas, 

O editor modelo UCSD é um editor de écran; pode mover o cursor para qualquer lugar do 
écran. YALOE e o editor fornecido com o CP/M são editores de linha - basta editar uma 
Jínha num lugar determinado do écran. YALOE é acompanhado do UCSD em máquinas desprovi- 
das de facilidades para edição, e é raramente necessário em micros modernas, 

O écran UCSD é de tal forma completo que pode ser usado para processamento de palavras. 
Pode encontrar partes de textos, substituí-las por outras coisas, delimitar capítulos 
de um texto, marginalizar e estabelecer colunas, Algumas destas coisas podem ser efec- 
tuadas através do editor CP/M, mas não com a mesma facilidade, 


Também o sistema de ficheiro UCSD inclui as maiores vantagens. 

Para conter as informações que são transportadas no disco precisa de ter um ficheiro, 
Quando quiser chamá-lo, obterá as seguintes opções: G(et, Slave, Wí(hat, N(ew, L(dir, 
R(emove, C(hnge, T(ransfer, D(ate e Q(uit. 
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O ficheiro funcíora com fichas extraídas ou Ânseriqas em vo.umes. US discos são volu- 
mes ( cada um com um nome próprio), e sSo simultaneamente as ligações de "output” para 
conectar os periféricose Pode ser usado para listar as fichas nos discos, para trans- 
ferir ficheiros de volume para volume, para actualizar fichas, para obter fichas do 
disco e voltar a repê-las, Para fazer tudo isto através do CP/M , tem que se usar um 
programa adequado. Com UCSD basta simplesmente primíir a tecla indicada e introduzir os 
parametros adequados. 


Quando estiver a trabalhar com um programa, o sistema UCSD armazena-o como um ficheiro 
de censulta, de tal modo ques é sempre a dispôr dele quando estiver a editar ou 
a ordenar. Esta vantagem constitui fundamentalmente o “ambiente” que evita incémodos 
no processo de programação. 


Apesar de tudo, e antes que comece a pensar que está no caminho errado por usar o CP/M, 
há aínda alguns aspectos a considerar - as vantagens e defeitos do códiço p/UCSDe 

C "software" UCSD cria aquilo que costuma chamar-se “máquina virtual” dentro Ja máqui- 

na real. O termo “virtual” é usado em programação com o significado de “simulado”, Com 
uma máquina virtual, o “software” ajuda ao estabelecimento de diferentes tipos de “hard 
ware”: cria um espírito na máquina. Esse espírito resultante do sistera UCSD utiliza um 
códiço de máquina próprio, denominado “cédigo p”, que deriva de PASCAL e tem certas e 
semelhanças com este código. 


Para um determinado “software” de UCSD, todas as máquinas que utilizam o sistema P/ 
[UlsD parecem funcionar de modo identico, Na realídade, isso não é completamente ver- 
dade, dá um intérprete que traduz o código p no código específico da máquira; mas 053 
programas que se fazem com UCSD são compilados em código p e armazenados dessa forma. 
Devem ser transformados para código p, e igualmente armazenados sob essa forma, Esse 
processo efectua-se através da grande extensão de “hardware” que mantém o UCSDe. 


A única cotsa que poderá comprometer essa capacidade de adaptação do códiço p é o pro- 

blema que surçe ao introduzir-se O programa noutra meméria. Os utilizadores concluíram 

que uma diskette de um APPLE pode possuir as dimensões adequadas a um OSSCRNL, mas es- 

te Jltimo continua a recusar a leitura do conteúdo do disco APPLE, É que os discos não 

funcionam em diferentes tipos ds máquinase 

A firma SOFTECH tenta resolver este problema com um produto chamado "Universal Medium”, 
que permitirá adaptar um disco de uma máquina diferente ao sistema UCSD e ler o seu con 
teúdo. Quando o “Universal Medium” se encontrar à disposição no próximo ano, o sistema 

UCsD terá essa vantagem 


Os aspectos negativos do código p são as limitações que ele impõe ao sistema, Sendo de= 45 
rivado de PASCAL, não pode adaptar-se a linguagens comO, PeSXe , JOBCL. Seria muito com= 
plexo compilar informações em CCBOL de instruções de código p PASCAL, 

vOsD fornece compiladores BASIC e FORTRAN, mas os críticos consideram-ros mais lentos 

que os compiladores que não precisam associar-se a um código p intermediário. 

Os argumentos relativos à velocidade fazem também parte de uma abordagem sobre IWSD, 
assim como para Jualquer outro “software”, A demontração do sistema será mais eviden- 

te quando começarem a desenvolver-se mais aplicações de programas, 

Nesse aspecto, o CP/M é muito mais vantajoso: pode funcionar com uma quantidade de a= 
plícações de “software” muito mais vasta que 0 UCSD. 


vo furdo não é muito correcto comparar-se o amblents de programação em PASCAL cor o dé 
CP/M também em PASCAL, dado que o UCSD foi construfto especialmente em função desta lin 


qQuageme 


Finalvente, as características do código p ou de seus derivados tem que ser mais profun 
Janente exploradas, C sistema é uma inovação no carpo comercial, e até agora aperas 
tem sido alvo de abordagens 2 críticas académicas, 
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Tal como no boletim anterior, reservaros esta 4ltima página para incluir 


um cupão para & renovação das v/ inscriçõese 


Efectivamente, se muitos associados já regularizaram a sua situação, há 
ainda uma grande parte que não o fezae 


Cra, como já ficou esclarecido no nº anterior, o Clube Z-8f' não tem lucros. 





Pelo contrário: a cont inusção da sua existencia depende rioritar lamente da 


contribuícão financeira de todos, que ainda não cobre as despesas existen- 


SA O 


tese 


Se é um dos sócios que optou pela modalidade trimestral e ainda não efec- 
tuou o pagamento da 28 prestação, solicitamos-lhe que o faça logo que pos- 


sível . 








Se | CLUBE Z-80 - RENOVAÇÃO DE INSCRIÇÃO 


Desejo renovar a minha inscrição no CLUBE Z-87, com nais uma 
prestação de 


«375600 (Jan., Feve e Março) 
+ 750400 (Jan. a Junho) 
«1 125400 (Jan. a Setembro) 


L [] [U) 


idas «Vale Postal nº «Dinheiro 








Envios 








a —— —— 






MME ————— 


ENDEREÇO 












